home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / LIB211.ZIP;1 / MEASURE.PRG < prev    next >
Encoding:
Text File  |  1993-11-19  |  10.7 KB  |  333 lines
  1. *-----------------------------------------------------------------------
  2. *-- Program...: MEASURE.PRG
  3. *-- Programmer: Ken Mayer (CIS: 71333,1030)
  4. *-- Date......: 07/28/1993
  5. *-- Notes.....: These routines handle conversion from various forms of 
  6. *--             measurement to others ... see the file: README.TXT for 
  7. *--             details on the use of this library file.
  8. *-----------------------------------------------------------------------
  9.  
  10. FUNCTION Kg2Lb
  11. *-----------------------------------------------------------------------
  12. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  13. *-- Date........: 11/05/1990
  14. *-- Notes.......: converts kilograms to pounds
  15. *-- Written for.: dBASE IV
  16. *-- Rev. History: 11/05/1990 -- Original
  17. *-- Calls.......: None
  18. *-- Called by...: Any
  19. *-- Usage.......: Kg2Lb(<nKg>)
  20. *-- Example.....: ? Kg2Lb(40)
  21. *-- Returns.....: dBASE number
  22. *-- Parameters..: nKg -- mass in kilograms
  23. *-----------------------------------------------------------------------
  24.  
  25.    parameters nKg
  26.    
  27. RETURN m->nKg / 0.45359237
  28. *--EoF: Kg2Lb()
  29.  
  30. FUNCTION Lb2Kg
  31. *-----------------------------------------------------------------------
  32. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  33. *-- Date........: 11/05/1990
  34. *-- Notes.......: converts pounds to kilograms
  35. *-- Written for.: dBASE IV
  36. *-- Rev. History: 11/05/1990 -- Original
  37. *-- Calls.......: None
  38. *-- Called by...: Any
  39. *-- Usage.......: Lb2Kg(<nPounds>)
  40. *-- Example.....: ? Lb2Kg(66)
  41. *-- Returns.....: dBASE number
  42. *-- Parameters..: nPounds -- mass in pounds
  43. *-----------------------------------------------------------------------
  44.  
  45.    parameters nPounds
  46.    
  47. RETURN m->nPounds * 0.45359237
  48. *-- EoF: Lb2Kg()
  49.  
  50. FUNCTION Inch2Cm
  51. *-----------------------------------------------------------------------
  52. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  53. *-- Date........: 11/05/1990
  54. *-- Notes.......: converts inches to centimeters
  55. *-- Written for.: dBASE IV
  56. *-- Rev. History: 11/05/1990 -- Original
  57. *-- Calls.......: None
  58. *-- Called by...: Any
  59. *-- Usage.......: Inch2Cm(<nInches>)
  60. *-- Example.....: ? inch2cm(12)
  61. *-- Returns.....: dBASE number
  62. *-- Parameters..: nInches -- length in inches
  63. *-----------------------------------------------------------------------
  64.  
  65.    parameters nInches
  66.    
  67. RETURN m->nInches * 2.54
  68. *--EoF: Inch2Cm()
  69.  
  70. FUNCTION Cm2Inch
  71. *-----------------------------------------------------------------------
  72. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  73. *-- Date........: 11/05/1990
  74. *-- Notes.......: converts centimeters to inches
  75. *-- Written for.: dBASE IV
  76. *-- Rev. History: 11/05/1990 -- Original
  77. *-- Calls.......: None
  78. *-- Called by...: Any
  79. *-- Usage.......: Cm2Inch(<nCm>)
  80. *-- Example.....: ? cm2inch(100)
  81. *-- Returns.....: dBASE number
  82. *-- Parameters..: nCm -- length in Cm
  83. *-----------------------------------------------------------------------
  84.  
  85.    parameters nCm
  86.    
  87. RETURN m->nCm / 2.54
  88. *-- EoF: Cm2Inch()
  89.  
  90. FUNCTION Km2Mile
  91. *-----------------------------------------------------------------------
  92. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  93. *-- Date........: 03/01/1992
  94. *-- Notes.......: converts kilometers to miles
  95. *-- Written for.: dBASE IV
  96. *-- Rev. History: Ver. 1.1 eliminates one multiplication
  97. *-- Calls.......: None
  98. *-- Called by...: Any
  99. *-- Usage.......: Km2Mile(<nKm>)
  100. *-- Example.....: ? km2mile(80)
  101. *-- Returns.....: dBASE number
  102. *-- Parameters..: nKm -- length in kilometers
  103. *-----------------------------------------------------------------------
  104.  
  105.    parameters nKm
  106.    
  107. RETURN m->nKm / 1.609344
  108. *-- EoF: Km2Mile()
  109.  
  110. FUNCTION Mile2Km
  111. *-----------------------------------------------------------------------
  112. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  113. *-- Date........: 03/01/1992
  114. *-- Notes.......: converts Miles to Kilometers
  115. *-- Written for.: dBASE IV
  116. *-- Rev. History: Ver. 1.1 eliminates one multiplication
  117. *-- Calls.......: None
  118. *-- Called by...: Any
  119. *-- Usage.......: mile2km(<nMiles>)
  120. *-- Example.....: ? mile2km(50)
  121. *-- Returns.....: dBASE number
  122. *-- Parameters..: nMiles -- length in miles
  123. *-----------------------------------------------------------------------
  124.  
  125.    parameters nMiles
  126.    
  127. RETURN m->nMiles * 1.609344
  128. *-- EoF: Mile2Km()
  129.  
  130. FUNCTION Km2Naut
  131. *-----------------------------------------------------------------------
  132. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  133. *-- Date........: 03/01/1992
  134. *-- Notes.......: converts Kilometers to Nautical Miles
  135. *-- Written for.: dBASE IV
  136. *-- Rev. History: 03/01/1992 -- Original
  137. *-- Calls.......: None
  138. *-- Called by...: Any
  139. *-- Usage.......: Km2Naut(<nKm>)
  140. *-- Example.....: ? Km2Naut(50)
  141. *-- Returns.....: dBASE number
  142. *-- Parameters..: nKm -- length in kilometers
  143. *-----------------------------------------------------------------------
  144.  
  145.    parameters nKm
  146.    
  147. RETURN m->nKm / 1.852
  148. *-- EoF: Km2Naut
  149.  
  150. FUNCTION Naut2Km
  151. *-----------------------------------------------------------------------
  152. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  153. *-- Date........: 03/01/1992
  154. *-- Notes.......: converts Nautical Miles to Kilometers
  155. *-- Written for.: dBASE IV
  156. *-- Rev. History: 03/01/1992 -- Original
  157. *-- Calls.......: None
  158. *-- Called by...: Any
  159. *-- Usage.......: Naut2Km(<nNautMiles>)
  160. *-- Example.....: ? Naut2km(50)
  161. *-- Returns.....: dBASE number
  162. *-- Parameters..: nNautMiles -- length in miles
  163. *-----------------------------------------------------------------------
  164.  
  165.    parameters nNautmiles
  166.    
  167. RETURN m->nNautmiles * 1.852
  168. *-- EoF: Naut2Km()
  169.  
  170. FUNCTION Naut2Stat
  171. *-----------------------------------------------------------------------
  172. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  173. *-- Date........: 03/01/1992
  174. *-- Notes.......: converts Nautical Miles to Statute Miles
  175. *-- Written for.: dBASE IV
  176. *-- Rev. History: 03/01/1992 -- Original
  177. *-- Calls.......: None
  178. *-- Called by...: Any
  179. *-- Usage.......: Naut2Stat(<nNautMiles>)
  180. *-- Example.....: ? Naut2Stat(50)
  181. *-- Returns.....: dBASE number
  182. *-- Parameters..: nNautMiles -- length in miles
  183. *-----------------------------------------------------------------------
  184.  
  185.    parameters nNautmiles
  186.    
  187. RETURN m->nNautmiles * 1.150779448
  188. *-- EoF: Naut2Stat()
  189.  
  190. FUNCTION Stat2Naut
  191. *-----------------------------------------------------------------------
  192. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  193. *-- Date........: 03/01/1992
  194. *-- Notes.......: converts Statute Miles to Nautical Miles
  195. *-- Written for.: dBASE IV
  196. *-- Rev. History: 03/01/1992 -- Original
  197. *-- Calls.......: None
  198. *-- Called by...: Any
  199. *-- Usage.......: Stat2Naut(<nStatMiles>)
  200. *-- Example.....: ? Stat2Mile(50)
  201. *-- Returns.....: dBASE number
  202. *-- Parameters..: nStatMiles -- length in miles
  203. *-----------------------------------------------------------------------
  204.  
  205.    parameters nstatmiles
  206.    
  207. RETURN m->nStatmiles / 1.150779448
  208. *-- EoF: Stat2Naut()
  209.  
  210. FUNCTION Fahr2Cel
  211. *-----------------------------------------------------------------------
  212. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  213. *-- Date........: 03/01/1992
  214. *-- Notes.......: converts Fahrenheit to Celsius
  215. *-- Written for.: dBASE IV
  216. *-- Rev. History: 03/01/1992 -- Original
  217. *-- Calls.......: None
  218. *-- Called by...: Any
  219. *-- Usage.......: Fahr2Cel(<nFahrTemp>)
  220. *-- Example.....: ? Fahr2Cel(50)
  221. *-- Returns.....: dBASE number
  222. *-- Parameters..: nFahrTemp -- temperature Fahrenheit
  223. *-----------------------------------------------------------------------
  224.  
  225.    parameters nFahrTemp
  226.    
  227. RETURN 5 * (m->nFahrtemp - 32 ) / 9
  228. *-- EoF: Fahr2Cel()
  229.  
  230. FUNCTION Cel2Fahr
  231. *-----------------------------------------------------------------------
  232. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  233. *-- Date........: 03/01/1992
  234. *-- Notes.......: converts Celsius to Fahrenheit 
  235. *-- Written for.: dBASE IV
  236. *-- Rev. History: 03/01/1992 -- Original
  237. *-- Calls.......: None
  238. *-- Called by...: Any
  239. *-- Usage.......: Cel2Fahr(<nCelTemp>)
  240. *-- Example.....: ? Cel2Fahr(50)
  241. *-- Returns.....: dBASE number
  242. *-- Parameters..: nCelTemp -- temperature Celsius
  243. *-----------------------------------------------------------------------
  244.  
  245.    parameters nCelTemp
  246.    
  247. RETURN 9 * m->nCelTemp / 5 + 32
  248. *-- EoF: Cel2Fahr()
  249.  
  250. FUNCTION Gal2Ltr
  251. *-----------------------------------------------------------------------
  252. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  253. *-- Date........: 03/01/1992
  254. *-- Notes.......: converts Gallons (US) to Liters
  255. *-- Written for.: dBASE IV
  256. *-- Rev. History: 03/01/1992 -- Original
  257. *-- Calls.......: None
  258. *-- Called by...: Any
  259. *-- Usage.......: Gal2Ltr(<nGal>)
  260. *-- Example.....: ? Gal2Ltr(50)
  261. *-- Returns.....: dBASE number
  262. *-- Parameters..: nGal -- US Gallons
  263. *-----------------------------------------------------------------------
  264.  
  265.    parameters nGal
  266.    
  267. RETURN m->nGal * 3.785411784
  268. *-- EoF: Gal2Ltr()
  269.  
  270. FUNCTION Ltr2Gal
  271. *-----------------------------------------------------------------------
  272. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  273. *-- Date........: 03/01/1992
  274. *-- Notes.......: converts Liters to Gallons (US) 
  275. *-- Written for.: dBASE IV
  276. *-- Rev. History: 03/01/1992 -- Original
  277. *-- Calls.......: None
  278. *-- Called by...: Any
  279. *-- Usage.......: Ltr2Gal(<nLiter>)
  280. *-- Example.....: ? Ltr2Gal(50)
  281. *-- Returns.....: dBASE number
  282. *-- Parameters..: nLiter -- Liters
  283. *-----------------------------------------------------------------------
  284.  
  285.    parameters nLiter
  286.    
  287. RETURN m->nLiter / 3.785411784
  288. *-- EoF: Ltr2Gal()
  289.  
  290. FUNCTION CuFt2Gal
  291. *-----------------------------------------------------------------------
  292. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  293. *-- Date........: 03/01/1992
  294. *-- Notes.......: converts Cubic Feet to Gallons (US) 
  295. *-- Written for.: dBASE IV
  296. *-- Rev. History: 03/01/1992 -- Original
  297. *-- Calls.......: None
  298. *-- Called by...: Any
  299. *-- Usage.......: CuFt2Gal(<nCubic>)
  300. *-- Example.....: ? CuFt2Gal(50)
  301. *-- Returns.....: dBASE number
  302. *-- Parameters..: nCubic -- Cubic Feet
  303. *-----------------------------------------------------------------------
  304.  
  305.    parameters nCubic
  306.    
  307. RETURN m->nCubic * 1728 / 231
  308. *-- EoF: CuFt2Gal()
  309.  
  310. FUNCTION Gal2CuFt
  311. *-----------------------------------------------------------------------
  312. *-- Programmer..: Jay Parsons (CIS: 72662,1302)
  313. *-- Date........: 03/01/1992
  314. *-- Notes.......: converts Gallons (US) to Cubic Feet
  315. *-- Written for.: dBASE IV
  316. *-- Rev. History: 03/01/1992 -- Original
  317. *-- Calls.......: None
  318. *-- Called by...: Any
  319. *-- Usage.......: Gal2CuFt(<nGal>)
  320. *-- Example.....: ? Gal2CuFt(50)
  321. *-- Returns.....: dBASE number
  322. *-- Parameters..: nGal -- Gallons
  323. *-----------------------------------------------------------------------
  324.  
  325.    parameters nGal
  326.    
  327. RETURN m->nGal * 231 / 1728
  328. *-- EoF: Gal2CuFt()
  329.  
  330. *-----------------------------------------------------------------------
  331. *-- EoP: MEASURE.PRG
  332. *-----------------------------------------------------------------------
  333.